home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGSCAL
/
TBUTIL2.LZH
/
DEMODEFS.INC
< prev
next >
Wrap
Text File
|
1986-02-23
|
2KB
|
50 lines
Procedure Select_Window(Win_Num: Integer);
Const Windows: Array[1..9,1..8] of integer =((5,5,40,15,12,0,2,0),
(43,5,73,15,10,0,3,12),
(5,16,73,23,9,0,1,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0));
Title:Array[1..9] of string[80] = ('',
'TEST TITLE',
'',
'',
'',
'',
'',
'',
'');
Begin
If (windows[win_num,3] > 0) and (Win_num > Stack_top) then
Begin
Add_Window(Windows[Win_Num,1],
Windows[Win_Num,2],
Windows[Win_Num,3],
Windows[Win_Num,4],
Windows[Win_Num,5],
Windows[Win_Num,6],
Windows[Win_Num,7]);
If Title[win_num] <> '' then
Window_Title(Title[Win_num],Windows[Win_Num,8])
end
else
If windows[Win_num,4] > 0 then
begin
Imig[Last_window_num].w1:=wherex;
Imig[Last_window_num].w2:=wherey;
Window(1,1,80,25);
GotoXY(1,1);
Window(Imig[Win_num].x1,Imig[Win_num].y1,
Imig[win_num].x2,Imig[win_num].y2);
Textcolor(Imig[win_num].c1+(Imig[win_num].b1*16));
GotoXY(1,1);
GotoXY(Imig[win_num].w1,Imig[win_num].w2);
Last_Window_Num:=Win_Num
End
End;